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FOREWORD 


This study was performed in order to determine the modi- 
fications necessary to convert the Martin Marietta Aerospace 
(MMA) Spacelab Contamination Computer Model, written for a CDC 
6300 computer, for use on a Marshall Space Flight Center (MSFC) 
computer. Such a conversion is necessary if Spacelab contamina- 
tion programs are to be processed locally on MSFC computers. 

In order to pursue the study, it was necessary to review the 
computer complement at MSFC and their computer usage processes 
to determine the most applicable and available computers for the 
purpose . 

MSFC is presently in the process of revising their compu- 
ter operations, access terminals, and control language and, be- 
cause of the state of change, it is not presently possible to 
itemize completely all necessary details of the conversion re- 
quirements. However, no undue difficulties are foreseen. The 
new computer system at MSFC will be known as the Marshall Inter- 
active Planning System (MIPS) . 

The UNIVAC 1108 computer was selected as the most appli- 
cable and available computer in the MSFC complement for process- 
ing the contamination program. Major differences between the 
CDC 6500 and UNIVAC 1108 are memory capacity, word length, and 
various specific functional capabilities. The CDC 6500 uses 
Fortran IV whereas, the UNIVAC 1108 uses Fortran V control lan- 
guage. None of the differences are such as to create any great 
difficulties in program conversion and a good programmer, fami- 
liar with the contamination program, should be able to process 
the necessary changes with minimum difficulty, knowing the 
differences . 

The study includes a large table listing comparable char- 
acteristics of the two computers side by side so that a compre- 
hensive comparison of computer capabilities can be made. From 
this table, a description and a smaller table of differences and 
program modification requirements has been developed. A small 
table listin^ some of the presently devised control language 
elements for the MIPS is also included in the study. The final 
section of the study lists the various Spacelab Contamination 
Coniputer Model routines and subroutines and program input sup- 
port requirements. 

MSFC plans to include approximately 50 of its most used 
programs on disc storage in the MIPS for rapid access when re- 
quired. The contamination program is designed to accept input 



from a modified Thermal Radiation Analysis System (TRASYS) 
program which establishes the necessary geometrical configura- 
tions and locational relationships for contaminant interchange 
assessment. This modified program or one with similar output 
must be available and working in the MIPS in order to process 
all aspects of the Spacelab contamination program. 
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The purpose of this study effort is to conduct a preliminary 
assessment of the computer interface requirements of the Spacelab 
Configuration Contamination Computer Model to determine the com- 
patibility of the program, as presently formatted, with the com- 
puter facilities at MSFC. This computer interface document sets 
forth the necessary Spacelab model modifications to be made if and 
when the program is transferred for utilization at MSFC. 

This task required that the present computer complement at 
MSFC and future planning for it be determined and a comparison 
made of the programming differences between suitable MSFC compu- 
ters and the CDC 6000 series computers for which the program is 
presently formatted at Martin Marietta Aerospace. 

This report describes the MSFC computer facilities, and 
future plans for them, and discusses characteristics of the var- 
ious computers as to availability and suitability for processing 
the contamination program. A listing of the CDC 6000 series and 
UNIVAC 1108 characteristics is presented so that programming re- 
quirements can be compared directly and differences noted. 

This report is an update of interim report MCR 76-165 pub- 
lished in February 1976 under the same title and should be con- 
sidered as current to date as based upon the available Information 
on the MSFC computer facilities. 

2. STUDY ACTIVITY STATUS 

Time allotted to this study has been utilized in determining 
the present computer complement at MSFC, projected future changes, 
the suitability and availability of the various MSFC computers, 
and the basic differences between the applicable MSFC computers 
and the CDC 6000 computer for which the program is presently for- 
matted. A summary of the findings of this study to date is pre- 
sented in the following subsections. 

2.1 Presently Available Computer Facilities at MSx-u - Coiuputers 
presently available at MSFC include two UNIVAC 1108' s, one PDP 
11/45, and several IBM 360's. In addition, lines are available 
to the Slidell facility where other UNIVAC 1108 's and IBM models 
are located. 


;PRODUCIBILITy OF TH« 
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The basic MSFC computer for engineering problems Is the 
UNIVAC 1108. The PDF 11/45 is also available for engineeving 
problems but Is a much smaller and slower computer. The IBM 
360' s are used primarily for Data Systems storage, processing, 
and retrieval and will not be ava:< lable for engineering problem 
processing. 

MSFC is presently In the process of making extensive changes 
in computer usage and operations. These changes are being in- 
corporated to provide more effective use of the computers, more 
flexibility in peripheral Instruments, and improved and time 
saving service to users. Previously, MSFC has operated In the 
Batch Processing Mode wherein programs were submitted and awaited 
their turn for processing by the computer operators. This was 
a time consuming process, requiring about a day from program 
submittal to the receipt of data. If programming errors were 
encountered, much longer delays were Inherent. A Common Accessing 
Process was also used wherein a user requested routines or pro- 
grams stored on tape reels in a storage vault. With this pro- 
cess, a computer operator was required to go to the vault, find 
the requested tape, and connect it into a computer before a pro- 
gram could proceed. 

2.2 Improved System - The revised system is called the Marshall 
Interactive Planning System (MIPS). It involves the installa- 
tion of multiple remote access terminals having graphic display 
capability, disc storage of programs within the computer, and 
linking of the separate computers into a common system. 

The Techtronix 4014 will be used for all the remote access 
terminals. These units will permit direct access by programmers 
at many convenient locations. Their graphic display capability 
permits computed data to be plotted automatically at the remote 
terminal for those desiring such presentation. This facility 
eliminates the onerous task of plotting tabular data by hand and 
speeds up the processing of trial and error problems by permitting 
the terminal user to modify variables rapidly until a desired 
result is obtained. 

It is planned to include approximately 50 of the most used 
programs in the disc storage system. This availability will 
eliminate much of the delay encountered with the previous Common 
Accessing Process. 

Linking the computers into a common system will more nearly 
equalize computer usage and reduce access delays such as would be 
encountered when a programmer addresses a computer that is down 
for repairs or servicing. 
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2.3 Availability and Acceptability of MSFC Computers for 
Processing Spacelab Configuration Contamination Programs - Only 
the UNIVAC 1108 's and the POP 11/45 will be made available for 
processing programs such as that required for the Spacelab con- 
tamination Investigation. The UNIVAC 1108 Is completely suitable. 
The POP 11/45 has I'mlted capabilities. 

2.3.1 POP 11/45 Acceptability - Disadvantages of the PDP 11/45 
for processing the Spacelab configuration contamination program 
are: 

a. short word length; 

b. small memory capacity; 

c. low speed orocessln^; and 

d. reduced precision. 

The normal word length used with PDP 11/45 programs consists 
of 16 binary bits. A double precision process can be used wherein 
32 bit words are available. However, use of such a process would 
aut. atlcally reduce the memory capacity to one-half that avail- 
able- with 16 bit words. Capacity with 16 bit words Is 124,000 
words of addressable memory space. The Spacelab contamination 
program as presently formatted uses approximately 100,000 sixty 
bit words. Although It is possible to reformat the contamination 
program to fit within the limited PDP 11/45 capacity, the end 
result would be a much more simplified model with limited flex- 
ibility and a considerable reduction of accuracy. It would also re- 
quire a considerable amount of effort and time. Furthermore, the 
program would require processing In a series of incremental steps, 
one step at a time. Add to this the fact that the speed of the 
PDP 11/45 is only about one-hundredth that of the UNIVAC 1108 and 
the indications are that the PDP 11/45 is not an acceptable 
system for processing the contamination program. The UNIVAC 1108 
is comparable in speed to the CDC 6500. 

2.3.2 UNIVAC 1108 Adaptation Requirements - In order to convert 
the existing CDC program for use on the UNIVAC, differences In 
source programs between the two computer systems must be con- 
sidered. The two compilers accept source programs that differ 
in at least three ways. Those are that: 

a. there are differences in permissible number sizes; 

b. there are some features of FORTRAN that are not avail- 
able In both implementations; and 

c. some implementations go beyond the standard features 
of FORTRAN. 
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Table I is a listing of the characteristics of the two systems, 
the comparable characteristics are presented side by side so that 
differences can be identified more easily. A program compatible 
with both systems can then be written by noting the similarities 
between the two systems or the CDC program can be maintained as 
is and a revised program can be written for the UNIVAC consider- 
ing its specific characteristics when and if it is requested by 
MSFC. The latter option is probably the most logical approach 
from a convenience standpoint in that current prograimlng methods 
for the ongoing modeling activities would not require modifica- 
tion to a new system. 

As indicated by the comparison table, presently available 
cards and tapes generated for use with the CDC computer are not 
directly compatible with the UNIVAC 1108 requirements and re- 
formatting will be necessary. However, no untoward problems have 
been indicated by the comparison and reformatting of the general 
programming processes should require only a relatively short time. 
The specific translational requirements are presented in sections 
3 and 4. Plotting, on the other hand, will require a complete 
rewrite, taking into consideration the specific software pack- 
ages and peripherals made available for that purpose at MSFC. 
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TABLE I CHARACTERISTICS OF CDC 6000 SERIES 
AND UN I VAC 1108 COMPUTERS 


CDC 6000 SERIES 
FORTRAN IV 

1) VARIABLE AND FUNCTION 
TYPH 


EXPLICIT 

INTEGER 

REAL 

DOUBLE PRECISION 

COMPLEX 

LOGICAL 


COUBLE 


UNIVAC 1108 
FORTRAN V 

1) VARIABLE AND FUNCTION 
TYPES 


EXPLICIT 

EXPLICIT 

REAL 

DOUBLE PRECISION 

COMPLEX 

LOGICAL 


NA* 


IMPLICIT IMPLICIT 

NA* IMPLICIT type (a^ , 

type {a^,a 2 ,...) 

type: INTEGER, REAL .COMPLEX, LOGICAL 
INTEGER (standard 4) 

REAL (standard 8) 

COMPLEX (standard 8) 

LOGICAL (standard 4) 

type can be double precision. 

a^ap,... single alphabetic 
characters or a 
range of characters 


Example: 


*NA = Not Applicable 


IMPLICIT REAL (A-H,0-Z,$), 
INTEGER(I-N) 
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TABLE I (continued) 

CDC 6000 SERIES 

2) CONTROL STATEMENTS 

GO TO n 
ASSIGN n TO i 
60 TO i. (m, ,mj 
60 TO i ' ’ 

GO TO (m, ,mp,. . . ,m. ) ,1 
IF (a) ml ,m«». . . ,ml 
IF (a) s' ^ ^ 

IF (a) ni,n. TWO BRANCH 

' LOGICAL IF 
DO ni * m, .m^.m- 
CONTINUE ' ^ 

PAUSE 

IF (a) m, ,m- TWO BRANCH 

' ^ ARITHMETIC IF 

STOP 

END 

Note: a is a logical 
variable 


UN I VAC 1108 

2 ) CONTROL STATEMENTS 

GO TO n 

ASSIGN n TO i 

GO TO i, (m, ,m.) 

GO TO i ' ^ 

GO TO (m, .mp,. . . ,mj ,i 
IF (a) mI , m«,. . . 

IF (a) s' ^ ^ 

NA 

DO n i = m-| ,m« ,m- 
CONTINUE ' 

PAUSE 

IF (a) , mp 

STOP 

END 

Note: a is a logical 
variable 


Example: 

ASSIGN 64 to J 
60 TO J 

GO TO J, (10,13,25,64,83) 
PAUSE n 
STOP n 

n is a string of 1 to 5 
octal digits 

END name 

name is the name or the 
program or subprogram 
which it terminates, and 
is ignored by the compiler 

IF (l)n,,n« two branch logical 
if. ' 


Example: 

ASSIGN 64 TO J 
GO TO J 

GO TO 0,(10,13,25,64,83) 
PAUSE n 
STOP n 

n is a string of 1 to 6 
alphanumeric characters 



i END 

i is a statement number; it 
may be referenced by a 
control statement. 
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CDC 6000 SERIES 
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UNIVAC 1108 


3) SUBPROGRAM STATEMENTS 

Statement function; 
name (p, . ,p )«expresslon 
reference , name (a ,...,a ) 

« n 

Subroutine subprograms: 

SUBROUTINE name (p ,...,p„) 
SUBROUTINE name ‘ 
reference CALL SUBROUTINE 
name (a, . ,a ) 

CALL subroutine name 

Function subprograms: 

type FUNCTION name 

(Pl Pn) 

type FUNCTION name 
reference, name (Pi,...»p_) 
name 

Type is REAL. INTEGER, DOUBLE 
PRECISION COMPLEX, LOGICAL. 
Wher type is omitted, the 
mode is determined by the 
first character of name. 
EXTERNAL name-i , name-,... 
RETURN 

PROGRAM name (fi.---.f_) 

The parameter f . must be^the 
names of all input/output 
files required by the main 
program and its subprograms. 

ENTRY name 

The formal parameters, if 
any, are the same as those 
with the FUNCTION or SUB- 
ROUTINE statement, and do 
not appear with the ENTRY 
statement. 

BLOCK DATA 


3) SUBPROGRAM STATEMENTS 

Statement function: 
name (p ,. . . ,p )*expression 
reference, name (a^,...,a^) 

Subroutine subprograms: 

SUBROUTINE name (pi,.--.p_) 
SUBROUTINE name ' 
reference CALL SUBROUTINE 
name (a, ,. . . ,a ) 

CALL subroutine name 

Function subprograms: 

type FUNCTION name 

(Pl .••• .P q) 
type FUNCTION name 
reference, name (p, ,...,p ) 
name 

Type is REAL, INTEGER. DOUBLE 
PRECISION COMPLEX. LOGICAL. 
When type is omitted, the 
mode is determined by the 
first character of name. 
EXTERNAL name,, namep,... 
RETURN 

NA 


ENTRY name (p, . ,p ) 
p. are the arguments corres- 
ponding to an actual argument 
in a CALL statement or in a 
function reference. Compatibl 
with IBM SYSTEM 360. 

BLOCK DATA 

In order to collect a block 
data subprogram as part of a 
program for execution, the 
block data subprogram must be 
referenced. 
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TABLE I (continued) 

CDC 6000 SERIES UNIVAC 1108 

NA DEFINE name - expression 

DEFINE NAME (p, ) - 
expression 

reference, name (a,,...,a ) 
a DEFINE procedure generates 
Inline code when It Is ref- 
erenced. DEFINE Is analogous 
to a statement function. 

NA RETURN k 

k Is an Integer constant, a 

parameter variable, or cn 
Integer variable. 

Example: 

Calling Program 


10 CALL SUB 
(A,$ or & 30) 
20 Y = A-^T 


30 Y =*A+C 


NA Function Subprograms: 

Type FUNCTION name *S{p, . ,p^^) 
Univac in order to be compatible with 
IBM SYSTEM 360, will accept the above 
FUNCTION statement 

NA ABNORMAL 

In order to produce correct and 
efficient code, the compiler 
recognizes common subexpressions. 

That is, a subexpression is 


Subprogram 


SUBROUTINE SUB 
(X,$ or *) 


100 IF (M) 200, 
300, 200 
200 RETURN 
300 RETURN 2 
END 



UNIVAC n08 


evaluated only once if the var- 
iables contained in it are not 
altered. These subexpressions 
contain variables in common. If 
a COMMON variable is altered by 
a function, the function should 
be declared ABNORMAL in order for 
the compiler to generate correct 
code. 

INTERNAL FUNCTIONS AND SUBROUTINES 

Internal subprograms are compiled 
in conjunction with a main program, 
an external function subprogram, or 
an external subroutine subprogram. 

An internal subprogram may be ref- 
erenced from any part of its pro- 
gram unit except from its own body. 

Example: 


Y=A+B 

CALL SAM (X) 


RETURN 

SUBROUTINE SAM (T) 

Z = Y 

T = Z+A 

RETURN 

END 



TABLE I (continued) 
CDC 6000 SERIES 
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4) ALLOCATION STATEMENTS 

COMPLEX list 
DOUBLE PRECISION list 
REAL list 
INTEGER list 
LOGICAL list 
DIMENSION V, ,v 

coririON/i^/nstf2/iist2... 


UNI VAC 1108 

4) ALLOCATION STATEMENTS 

COMPLEX list 
DOUBLE PRECISION list 
REAL list 
INTEGER list 
LOGICAL list 
DIMENSION V, 

COMMON/1^/1 !St7l2/lisS2... 


/I./... represent optional names 
consisting of 1 - 6 alphanumeric 
characters, the first of which 
is alphabetic. 

EQUIVALENCE (a^ 

DATA Tist-|/a,,. • • 

• Ik/ 


»b-| , . . ) , 


1 ist2/b^ 


,a /, 


/I .represent optional names 
consisting of 1 - 6 alphanumeric 
characters, the first of which 
is alphabetic. 

EQUIVALENCE (a^ ,b^ ,...), 






tist-i/3^ 5. •• >3 -/ ^ 

1 ist2/b^ ,. . 1 . . 


cor v ’i/li/list,/l2/list2 NA 

/I./., represent optionaf 
names consisting of 1 - 7 
alphanumeric characters. They 
may be all numeric. 


DATA (listi=c ,...,c ), (list 9 = NA 

V.-- " ' 

DOUBLE list 


NA Type v^/l^/V 2 /l 2 /- • • 

V. represents a list of variables 

l| represents a literal list. 

DIMENSION v,/l,/V2/l2.- • 

V. represents a list^or array 
' declarations. 

1^ represents a literal list. 


TABLE I (continued) 
CDC 6000 SERIES 
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5) REPLACEMENT STATEMENTS 5) REPLACEMENT STATMENTS 


a = Arithmetic expression a = Arithmetic expression 

1 = Logical expression 1 = Logical expression 

m = Masking expression NA 


The masking expression is a 
generalized form of logical 
expression in which the vari- 
ables may be types other than 
logical . 

Multiple Replacement Statement 
A=B-=C»expression 

Multiple Statement Cards 
A=express1on $ 

B*expression 

6) FORMAT STATEMENT AND 

specification? 

FORMAT (spec-j . jSpec^) 

Where spec^. = 

EW.d Single precision float- 
ing point with exponent 
FW.d Single precision float- 
ing point without 
exponent 

DW.d Double precision float- 
ing point with exponent 
GW.d Single precision float- 
ing point with or with- 
out exponent 
IW Decimal integer 

Aw Alphanumeric, left 

justified, with trail- 
ing blanks 
Lw Logical 

nP Scaling factor 

Complex values are converted 
by a pair of consecutive 
EW.D or FW.D. 
wX Intra-line spacing 

wH Transmits literal data 


6) FORMAT STATEMENT AND 

SFeCIFICATIONS' 

FORMAT (spec-j ,. . . ,spec^) 

Where spec^ = 

EW.d Single precision float- 
ing point with exponent 
FW.d Single precision float- 
ing point without 
exponent 

DW.d Double precision float- 
ing point with exponent 
GW.d Single precision float- 
ing point with or with- 
out exponent 
IW Decimal integer 

Aw Alphanumeric, left 

justified, with trail- 
ing blanks 
Lw Logical 

nP Scaling factor 

Complex values are converted 
by a pair of consecutive 
EW.d or FW.d. 
wX Intra-line spacing 

wH Transmits literal data 
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TABLE I (continued) 

CDC 6000 SERIES 

Rw Alphanumeric, right 
justified, leading 
zeros 

Transmits literal data 
Ow Octal integer 

NA 


7) PRINTER CARRIAGE CONTROL 

0 Double space after 
printing 

1 Eject page before 
printing 

+ Suppress spacing before 
printing 

blank Single space after 
printing 

8) INPUT/OUTPUT AND DATA 
TRANSMISSION 

READ n, list 
PRINT n, list 
PUNCH n, list 
READ (i,n) list 
WRITE (i,n) list 
READ (i) list 
WRITE (i) list 
END FILE i 
REWIND i 
BACKSPACE 1 

NAMELIST/x/a,b,. . . ,c/y/d,e, 
...f... 

READ (i,x) - namelist read 
WRITE (i ,x)-namel 1st write 


UNIVAC 1108 

Rw Alphanumeric, right 
justified 

Transmits literal data 
NA 

Tw Indicates the position in 
a FORTRAN record where 
transfer of data is to 
start. Complex values are 
converted by a pair of E, F, 
or G format codes. 

PRINTER CARRIAGE CONTROL 

0 Double space after 
printing 

1 Eject page before 
printing 

+ Suppress spacing before 
printing 
blank Single space after 
printing 

8) INPUT/OUTPUT AND DATA 
TRANSMISSION 

READ n, list 
PRINT n, list 
PUNCH n, list 
READ (i,n) list 
WRITE (i,n) list 
READ (i) list 
WRITE (i) list 
END FILE i 
REWIND i 
RACk'^PACF i 

NAMELIST/x/a,b,... ,c/y/d,e, 

...f... 

READ (i,x) - namelist read 
WRITE (i ,x)-namelist write 


TABLE I (continued) 
CDC 6000 SEriES 
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BUFFER IN (i,m) list 


BUFFER OUT (i.m) list 

ENCODE (c,n,v) list 
DECODE (c,n,v) list 

IF (EOF,i) ni ,np 
IF(ENJFILE,i)ni ,n 2 
IF (UNIT»i)ni ,n 2 »n 2 ,n 4 

NA 


NA 


NA 

NA 

NA 


READ(a,b,END=c,ERR=d) list 
END=c is optional, transfer to 
c encountering the end of 
the data set 

ERR=d is optional, transfer to 
d encountering error condi- 
tion in data transfer 

WRITE (a,b,END=c,ERR=d) list 

ENCODE (v,n) list 

DECODE (v,n) list 


DEFINE FILE a^ (mi ,r, ,f] ,v, ) , . . . , 

®n('J'n»'"nyn’''n' . 

describes data set used during a 


direct access 
Input/out operation 
a - data set reference number, 
m - number of records in a. 

r - record size maximum, 

f - format control . 

V - associated variable. 


READ(a'r,b,ERR=d) list 
a - data set reference number 

followed by an apostrophe, 
r - integer, relative position 

of record in data set. 
b - format statement number, 

operational 

ERR = d, same as above, 

WRITE (a'r.b) list 
FIND(a'r) 

finds next input record while present 
record is being processed. 


TABLE I (continued) 

CDC 6000 SERIES 
9) SUBSCRIPTS 

A(ii .. 

1 ^ n ^ 3 

i may be: 
integer constant 
simple integer variable 
simple integer arithmetic 
expression 

NA 


10) FORTRAN DECK STRUCTURE 

(1) Program declaration 

statements 

(a) PROGRAM 

(b) FUNCTION 

(c) SUBROUTINE 

(d) BLOCK DATA 

(2) Type statements 

(3) DIMENSION statements 

(4) COMMON statements 

(5) EQUIVALENCE statements 

(6) DATA statements 

(7) NAMELIST statements 

(8) EXTERNAL statements 

(9) Executable statements 

(10) FORMAT statements 

(11) END 
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UNIVAC 1108 
9) SUBSCRIPTS 


“' I ” ' n' 

1 ^ n^ 3 
i may be: 
integer constant 
simple integer variable 
simple integer arithmetic 
expression 

A(ip...,i^) 

1 ^ n ^ 7 
i as above 

10) FORTRAN DECK STRUCTURE 

(1) Program declaration 

statements 

(a) PROGRAM 

(b) FUNCTION 

(c) SUBROUTINE 

(d) BLOCK DATA 

(2) Type statements 

(3) DIMENSION statements 

(4) COMMON statements 

(5) EQUIVALENCE statements 

(6) DATA statements 

(7) NAMELIST statements 

(8) EXTERNAL statements 

(9) Executable statements 

(10) FORMAT statements 

(11) END 
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TABLE I (continued) 

1 1 ) F ORTRAN CONSTANTS 


Integer 

rirt • • n 

1 c m 

1 $ m ^ 18 

Octal 

On, . .n^ 

1 m 

6 ^ m ^ 20 

n, . .n„B 
1 m 

1 ^ m < 20 

Real 

1 $ in ^ 15 

Double 

Precision 

1 < m 4 18 

Complex 

(r^ .rg) 
r,=real 

t 1 

r2= imaginary 

Literal 

replacement: 

1 ^ n ^ 10 

Format: 

♦GOGETIT* 

1 ^ n $ 136 

data statement 

1 ^ n < 1 307 , 

Logical 

.TRUE..T. 
.FALSE. .F. 


UNIVAC 1108 


1 ^ m ^ 11 


On, . .n„ 

I m 

1 ^ m < 12 


1 ^ m ^ 9 


ni-.n^DiexPio 
1 ^ m ^ 18 


r.|=real 

r2=imaginary 


all modes: 

1 ^ n ^ unlimited 

' f f ' 

M* * n 

1 ^ n ^ unlimited 


EXAMPLES 


for 2, m=l 
for 247, m=l 


0231461 

777000B 


3.14 

.0749 

3.14E05 


3.1415D0 

-16.9D+19 


(1. .6.55) 

(0.,-l.) 

(-15. ,16.7) 


7HG0GETIT 

■GOGETIT' 
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TABLE I (continued) 


12) FORTRAN VARIABLES 
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TABLE I (continued) 


13) FORTRAN FUNCTIONS 



CDC 6000 SERIES 

UNIVAC 11 

Exponential 

EXP(x) 

EXP(x) 


DEXP(d) 

DEXP(d) 


CEXP(c) 

CEXP(c) 

Natural 

ALOG(x) 

ALOG(x) 

Logarithm 

OLOG(d) 

DLOG(d) 


CLOG(c) 

CLOG(c) 

Common 

Logarithm 

ALOGlO(x) 

DLOGIO(D) 

ALOGlO(x) 

DLOGlO(d) 

Arcsine 

ASIN(x) 

ASIN(x) 



OASIN(d) 

Arccosine 

ACOS(x) 

ACOS(x) 



DACOS(d) 

Arctangent 

ATAN(x) 

ATAN(x) 


ATAN2(x^ 

ATAN2(x^ 


OATANZCd^.dg) 

DATAN2(d^,d2) 

Sine 

SIN(x) 

SIN(x) 


DSIN(d) 

DSIN(d) 


CSlN(c) 

CSIN(c) 

Note: in the arguments 

i=integer 

x=real 

d=double precision 
c=complex 



''EPRODUCIBILnY OP THK 
^ilGINAL PAGE IS POOP 
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TABLE I (continued) 



CDC 6000 SERIES 

UNIVAC 1108 

Cosine 

COS(x) 

COS(x) 


DCOS(d) 

DCOS(d) 


CCOS(c) 

CCOS(c) 

Tang-^nt 

TAN(x) 

TAN(x) 



DTAN(d) 



CTAN(c) 

Square Root 

SQRT(x) 

SQRT(x) 


DSQRT(d) 

DSQRT(d) 


CSQRT(c) 

CSQRT(c) 

Cube Root 

NA 

CBRT(x) 



DCBRT(d) 



CCBRT(c) 

Hyperbol ic 

NA 

SINH(x) 

Sine 


DSINH(d) 



CSINH(c) 

Hyperbol ic 
Cosine 

NA 

COSH(x) 



DCOSH(d) 



CCOSH(c) 

Hyperbolic 

Tangent 

TANH(x) 

TANH(x) 



DTANH(d) 



CTANH(C) 
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Modular 

Arithmetic 


Absolute 

Value 


Truncation 


Largest 

Value 


Smallest 

Value 


CPC 6000 SERIES 

AM0D(XpX2) 

M0D(1i,l2) 

DM0D(d^.d2) 

ABS(x) 

DABS(d) 

CAGS(c) 

lABS(i) 

AINT(x) 

INT(x) 

IDINT(d) 

AMAXOd ,12....) 
AMAX1(x^,X2,...) 
MAX0(i^ ,12.- • • ) 
MAXI (x-| ,X2». . . ) 
DMAXl(d^ ,d2,... ) 
AMIN0(i^ ,12.'--) 
AMINKx^ ,X 2 »... ) 
MINC;i^,i2...*) 
MINI (x^ ,X2f • • ) 
DMINl(di,d2....) 
FLOAT(i) 


UNIVAC 1108 
AMOD(x-j ,X 2 ) 

M0D(i^.l2^ 

DM0D(d^ ,d2) 

ABS(x) 

DABS(d) 

CABS(c) 

IABS(1) 

AINT(x) 

INT(x) 

IDINT(d) 

DINT(d) 

AMAX0(1^,l2’*-*^ 

AMAX1(x^,X2,...) 

MAXO(ipi2,...) 

MAX1(x^,X2,...) 

DMAXl(d^,d2,.. ) 

AMIN0(1^,i2....) 

AMIN1(x^,y2,...) 

MIN0(i^,i2*---) 

mNl(x^,X2,...) 

DMINl{d^,d2,...) 

FLOAT(i) 


Float 
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CDC 6000 SERIES 

UN I VAC 1108 

Fix 

IFIX(x) 

IFIX(x) 

1 Transfer 

SIGN(x^,X2) 

ISIGfKi^.i^) 

' 

DSIGrUd^.d^) 

1 

SIGN(x^,X2) 1 

ISIGN(i,,i,) ' 

! 

DSIGN(d^,d2) ’ 

of Sign 

i 

• Positive 
Difference 

DIM(x^ ,X 2 ) 
IDIfKi^ ^2^ 

DIM(x^ ,^ 2 ) 
IDIM(i^,i2) 

Significant 
Part of DP 
Argument 

SNGL(d) 

SNGL(d) ^ 

t 

I 

Real Part 
of Complex 

REAL(c) 

REAL(c) [ 

Imaginary Part 

A I MAG (c) 

AIMAG(c) 

of Complex 



Real to DP 

DBLE(x) 

DBLE(x) i 

1 

Real to Complex 

CMPLX(x^ ,X 2 ) 

CMPLX(x^,X2) I 

Conjugate 

CONJG(c) 

CONJG(c) 

Logical 

Product 

AND(x^ . ,x^) 

AND(x-| ,X 2 ) 

Logical Sum 

0R(x^ . ,x^) 

0R(x^,Xp) I 

Compl ement 

COMPL (x) 

COMPL(x) ' 

Number of 
Words from 
Unit i 

LENGTH(i) 

flA 

i 

i 

— 


•'^■PRODUCIBILriT OF TI 
ICSi^AL PAGE IS POOI 
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TABLE I (continued) 


Random 

Number 


CPC 6000 SERIES 
RANF(x) 


NA 


UNIVAC 1108 


Time from 
Dead Start 


SECOND(I) 


NA 
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CHARACTER 

COMPUTER 

CODE 

PUNCH CARD 

BCD 

EBCDIC 


MttiW 

CDC 

UNIVAC 







• 

• 

57 

75 

12 - 8-3 

12 - 8-3 

) 

< 

52 


12 - 8-4 

12 - 8-4 

$ 

$ 

53 

47 

11 - 8-3 

11 - 8-3 

it 

★ 

------- 1 

47 

50 

11 - 8-4 

11 - 8-4 

9 

9 

56 

56 

0 - 8-3 

0 - 8-3 

( 

% 

51 

51 

0 - 8-4 

0 - 8-4 

s 

# 

54 

44 

8-3 

8-3 


-■ i 

NA 

NA 

NA 

NA 

[ 

( 

61 

01 

8-7 

12 - 8-5 

< 

+ 

73 

43 

12-0 

12 - 8-6 

] 

) 

62 

02 


11 - 8-5 

» 

> 

77 

73 

12 - 8-7 

11 - 8-6 

A 


MA 

04 

NA 

11 - 8-7 

\ 

> 

NA 

57 

NA 

0 - 8-6 

(P 

0 

NA 

00 

NA 

8-7 

• 

/ 

63 

53 

8-2 

8-5 

> 

= 

72 

45 

11 - 8-7 

8-6 

7 


NA 

54 

NA 

12-0 

1 


NA 

55 

NA 

11-0 

f 


NA 

77 

NA 

0 - 8-2 

& 



46 

NA 

8-2 

/ 



72 

NA 

8-4 

# 



03 

NA 

12 - 8-7 

s 



NA 

0 - 8-6 

NA 



64 

NA 


NA 

— ► 


65 

NA 


NA 

V 


66 

NA 


NA 

A 


67 

NA 


kmBBB 

t 


70 

NA 





71 

NA 



< 


74 

NA 












NA 




PRODUCIBILrrY OF THE 

:^nal page is poor 
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TABLE I (continued) 

15) FLOATING POINT WORD STRUCTURE 

' CDC 6000 SERIES - 

Floating point arithmetic takes advantage of the ability to 
^ express a number with the general expression KB", where: 

K = coefficient 

B = base number 

n = exponent or power to which the base number is raised 

The base number is constant (2) for binary-coded quantities and 
is not included in the general format. The 60-bit floating- 
point format is shown below. The binary point is considered to be 
to the right of the coefficient, thereby providing a 48-bit in- 
teger coefficient, the equivalent of about 14 decimal digits. 

The sign of the coefficient is carried in the highest order bit 
of the packed word. Negative numbers are represented in one's 
complement notation. 


Coefficient 

Sign 


Biased 

Exponent 


Integer 

Coefficient 
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Coefficient Biased 

Sign Exponent 


Fractional 

Coefficient 


1 


8 


27 


35 34 


27 26 


Single-Precision Floating Point 

The coefficient is the numerical value of the data, it is always 
a fractional value less than 1. However, the exponent is not 
the exponent of the coefficient; it is the exponent of the base. 

Coefficient Biased Fractional 

Sign Exponent Coefficient 

l| 11 I 60 0 

71 70 60 59 


Dougle-Precision Floating Point Number 

For single-precision the 8 bit exponent carries a bias of 2^(200n). 

For double precision the 11 bit exponent carries a bias of 2^*^(2DOOg). 


16) FIXED POINT WORD STRUCTURE 

CDC 6000 — - - 

Negative numbers are represented in one's complement notation and 
overflows are ignored. The sign bit is in the high-order bit 
position (bit 59) and the binary point is at the right of the low- 
order bit position (bit 0). 

UNIVAC 1108 - 

The basic fixed-point number is a 36 bit binary word. The sign 
bit is in the high-order bit position (bit 35) and the binary 
point is at the right of the low-order bit position (bit 0). 
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3. PROGRAM CONVERSION REQUIREMENTS 

3.1 Basic Programming Differences - Table II lists the differ- 
ences resulting from the comparisons made in Table I. From these 
results, the following basic programming guidelines are indi- 
cated as essential for conversion of a FORTRAN IV CDC 6500 pro- 
gram to FORTRAN V for the UNIVAC 1108: 

a. The 60 bit word of the CDC 6500 allows 10 Hollerith 
characters. The UNIVAC 36 bit word permits only six 
characters per word. Therefore, all words must be re- 
duced to six or less characters. 

b. The CDC 6500 FORTRAN IV compiler allows symbols with 
up to seven alphanumeric characters. UNIVAC 1108 
FORTRAN V permits only six alphanumeric characters. 
Symbols must therefore be reduced to six or less alpha- 
numeric characters. 

c. CDC FORTRAN IV allows Hollerith characters in FORMAT 
statements to be specified by placing asterisks around 
the Hollerith information. UNIVAC uses this feature 
with apostrophes instead of asterisks. 

d. CDC FORTRAN IV allows the DO loop index to be altered 
by a replacement statement within the loop. UNIVAC 
FORTRAN V does not permit DO indices to be altered 
within the iteration loop. Do not reset DO loop indices 
within the iteration loop. 

e. CDC FORTRAN IV allows the DO loop index to be referenced 
outside the limits of the loop. UNIVAC does not have 
this feature. Therefore, the index value must be stored 
in a separate word. 

f. The CDC loader allocates storage for common blocks 
according to their first appearance in the job string. 

The UNIVAC loader searches the referenced elements and 
allocates storage for the longest appearance of the 
common block. Therefore, common statements must be kept 
consistent throughout all elements. 

g. The CDC loader creates an absolute element of all ele- 
ments in the job string including BLOCK DATA subprograms. 
The UNIVAC loader loads only those elements that are 
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TABLE II. UNIVAC 1108/CDC 6500 Differences 


ITEM 

UNIVAC 1108 

CONTROL DATA 6400/6500 

MEMORY 

65K,q (Batch), 32 K^q 
(I nteract) 

132K,n (Batch), 52K,« 
(Interact) 

INTERACTIVE TIME 
LIMIT 

10 Minutes 

5 Minutes 

WORD LENGTH 

36 Bits 

60 Bits 

FLOATING PT. BIAS 

ro 

o 

o 

00 

2000g 

DOUBLE PREC. BIAS 

2000g 

2000q 

MANTISSA 

FRACTION 

INTEGER 

REAL 

10"^® i R 1 10^® 

10"^^^ < R < 10^^^ 


(9 decimal digits) 

(14 decimal digits) 

DOUBLE PRECISION 

10“308 < 0 ^ 10^°® 

10"^^^ < D < 10^^^ 


(18 decimal digits) 

(31 decimal digits) 

INTEGER 

I < (2^^ -1) 

I < (2^^ -1) 

DO index, I < (2^^ -2) 
I -R, R < (2^® -1) 

CHARACTER 

6 FIELDATA CHAR/WORD 

10 Hollerith Char/Word 

ARRAYS 

UP TO 7 DIMENSIONS 

UP TO 3 DIMENSIONS 

WALK BACK 

AVAILABLE 

NA 

FUNCTIONS: 

CBRT(X) 

NA 

(1108 has many 
functions that 

X0R(Xi, X2 Xn 

NA 

are not available 

BOOL 

NA 

on CDC 6400/6500) 

FLD 

NA 

ITEM EXECUTABLE 

UNIVAC 1108 

CONTROL DATA 6400/6500 

DO n i = M, , M,, M, 

Mj may be signed constant 
or variable 

Mj unsigned (variable may 
have negative value) 



Mi , i may not be altered 

Mj , i may be changed dur- 



ing execution of DO 

RETURN 

RETURN k 

RETURN 


RETURN 
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Table II. UNIVAC 1108/CDC 6500 Differences (cont) 


ITEM EXECUTABLE 

UNIVAC 1108 

CONTROL DATA 6400/6500 

STOP 

STOP name 

STOP OOOOOg 

PAUSE 

PAUSE name 

PAUSE OOOOOg 

READ 

READ (u, f, ERR * c. END 
= d) list 

READ (u. f) list 

WRITE 

WRITE (u, f, ERR = c. END 
= c) 

WRITE (u, f) list 

ENCODE 

ENCODE (c. V. f) list 
V = block 
f - format 

c = no. of characters 

ENCODE (c, f, v) list 
V - block 
f = form'^t 

c = no. of characters 
in record 

DECODE 

DECODE (c, V, f) list 

DECODE (c, f, v) list 

BLOCK DATA 

Reference In MAP 

BLOCK DATA name 

FORMAT 

■hhh' 

*hhh* 

PARAMETER 

PARAMETER 

NA 

INTEGER 

INTEGER list /data/ 

INTEGER 

REAL 

REAL list /data/ 

RFAL 

DOUBLE PRECISION 

DOUBLE PRECISION list /data/ 

DOUBLE PRECISION or DOUBLE 

COMPLEX 

COMPLEX list /data/ 

COMPLEX 

LOGICAL 

LOGICAL list /data/ 

LOGICAL 

ABNORMAL 

ABNORMAL 

NA 

DIMENSION 

DIMENSION list /data/ 

DIMENSION 

EQUIVALENCE 

EQUIVALENCE (V(o), w) 

EQUIVALENCE (X(n), w) 

COMMON 

Largest block loaded 

First block loaded 

DATA 

Hollerith may be in 'hhh' 
nested implied DO's 

Hollerith in nH field. 
Single variable subscript 

END 

n END 

n is statement number 

END name 

name is element name 

NAME LIST 
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Table II. UNIVAC 1108/CDC 6500 Differences (concld) 


ITEM NONEXECUTABLE 

UNIVAC 1108 

CONTROL DATA 6400/6500 

ENTRY 

ENTRY name (a], a 2 » * 3 ) 
unique arguments not 
necessarily like parent 

ENTRY name 

arguments defined In 
parent element 

IMPLICIT 

IMPLICIT 

NA 

DEFINE 

DEFINE name (1) = 

Name (1) = 

COMPILER 

COMPILER 

NA 

ITEM SOURCE CONTROL 

UNIVAC 1108 

CONTROL DATA 6400/6500 

INCLUDE 

INCLUDE 

NA 

DELETE 

delete 

NA 

EDIT 

EDIT 

NA 
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referenced by the main program and those that are sub- 
sequently referenced. Therefore, BLOCK DATA subpro- 
grams must not be used. All elements to be loaded must 
be referenced - whether or not the CALL statement will 
be executed. 


h. The following list Indicates special CDC 6500 FORTRAN IV 
capabilities that are incompatible with UNIVAC 1108 
FORTRAN V. An alternative compatible statement is shown 
where applicable. 


CDC 6500 

INCOMPATIBLE STATEMENT 

DOUBLE LIST 
PAUSE OOOOOg 
STOP OOOOOg 
END name 

IF (logical expression) Nl, N2 
IF (UNIT, i) Nl, N2, N3, N4 
IF (EOF, i) Nl, N2 
IF (ENFILE i) Nl, N2 
BUFFER IN (i, m) list 
BUFFER OUT (i, m) list 


COMPATIBLE 

ALTERNATIVE 

DOUBLE PRECISION list 

PAUSE 

STOP 

END 

IF (logical expression) GO TO 

NTRAN 

NT RAN 

NTRAN 

NTRAN 

NTRAN 


3.2 Control Language - Basic characteristic differences are to 
be expected between computers from different manufacturers having 
different capacities and capabilities. However, the differences 
do not end there. Unfortunately, no effective attempt has been 
made, up to the present time, to standardize control language. 
This has been left to the philosophy and desires of the managers 
or computer architects and will vary from one computer location 
to the next even on the same type computers. In order for pro- 
grammers to use a program at a new loca*:lon, they must learn and 
use the locally devised control language. Programming procedural 
variations will also be required by different peripheral input 
equipment. Apparently a complete control language has not yet 
been devised for the Marshall Interactive Planning System (MIPS). 
At this time, however, a description of some of the presently de- 
vised elements of the MIPS control language has been obtained and 
is contained in Table III. 
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TABLE III. MIPS Control Language Elements 


ELEMENT 


RN 

MOD 

PT 

X 

GO 

TO X 

IF 

(A. OP. 

SD 


SV 

MOD 

DS 

MOD 

ER 

MOD 

UP 


GO 


SP 


ST 

MPS.A=C 

PF 

MPS. A 


EF MPS 
PD 

READY MPS 


CONTROL PERFORMED 

Effects the running of a system module mod 

Tags X as a reference point 

Effects a mandatory transfer of control 
to X 

Effects a conditional transfer of control 
to X 

Delayed ST 

Effects the saving of a command stack 
under the name MOD 

Displays the module MOD 

Erases the module MOD 

Effects the update of a module 

Effects the insertion of the command 
stack Into the run stream 

Stops processing 

Sets the value C under the name A In 
the specified data file MPS 

Prints the value set under the specified 
name A in the specified data file MPS 

Creates a data file. All required input 
is tutorial 

Erases the specified data file MPS 
Prints system directories 
Readies specified data file MPS 
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4. CONTAMINATION MODEL COMPUTER PROGRAM 

« 

4.1 Model Segments and Subroutines - The Spacelab Contamination 
Computer Model » which has basically been constructed and format- 

I ted for Spacelab design and development support, currently Is 

comprised of a series of segregated elemental subroutines. 

These Include unique programs which individually calculate the 
mass column density (MCD) , number column density (NCD) , return 
flux to a fixed geometry surface, and the resulting deposition 
for the major Spacelab contaminant sources. These elemental 
subroutines are also part of an integrated and more sophisti- 
cated program denoted as the VOLCAN (Vent, Outgasslng and Leak- 
age Contamination Analysis) Program. Although VOLCAN is still 
in the early development stage, the basic architecture has been 
established. Therefore, for an overview of the current modeling 
philosophy, a general description of the four basic segments of 
the VOLCAN Program from which the Spacelab Contamination Compu- 
ter Model has been developed is presented herein. 

The first segment of VOLCAN acts as the executive and co- 
ordinates the analysis by defining the problem and collecting 
the data required to perform the type of analysis the user re- 
quests. This executive segment in turn calls the three other 
segments if their functions are required. 


Input data can be accessed under the following options: 

a. user input cards; 

b. previously generated permanent disk files or magnetic 
tapes; and 

c. local files that are generated by the VOLCAN preprocessor 
by accessing the MSFC MIPS data files (the preprocessor 
is currently in the design stage so this option is not 
yet available) . 

Data is currently stored internally for analyzing the NASA 
Spacelab and Orbiter configurations, however data can be input 
to VOLCAN via cards or tape to analyze any satellite configura- 
tion. 


A significant portion of the input data is geometric informa- 
tion assembled by a NASA sponsored radiation configuration program 
Tlb\SYS. VOLCAN is formatted to accept output data from the MMC 
IRASYS program directly, but it could be easily modified to accept 
view factors, surface separation distances and angular relation- 
ships from other techniques that provide this information. Major 
subroutines contained in the first segment include; 
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COLLECT > control! Input of data from various sources (l.e. 
cards, files, tapes) 

BLOCK A - inserts block data for Spacelab/Orbiter surface 
identification numbers, material definition, 
location, surface area 

AUDIT - defines a mass loss audit from all surface sources 

MLOSSR - defines the mass loss rate of H^O, N^, CO.* O^* 
plus two outgassing apecies for^each^surface 

LOADT - loads in temperatures from cards or permanent 
files depending on user options 

If the user requests an evaluation of surface deposition, 
the executive calls the second segment which computes direct 
line-of»sight, transport of contaminants from all sources (dis- 
tributed surfaces, engines, evaporator, leaks). Second surface 
sources for Spacelab are also considered in this segment by 
accessing a set of block data stored on a permanent file con- 
taining all body to body view factors. Mass arriving at a sur- 
face from other surfaces can be reflected or partially re- 
emitted and combined with the mass that originates with the 
surface itself. 

Major subroutines contained in the second segment include: 

DEPSIT - controls the type of sources that can deposit 
contaminants on the critical surface 

ODRAP - computes outgassing/early desorption deposition 

STICK - defines condensation coefficients for surfaces 

PLUMES - computes mass flux to the surface from engines 

VENT - computes mass flux to the surface from the evaporator 

VELOC - calculates mean velocity of contaminants leaving 
a surface 

Again depending on the type of analysis requested, the 
third segment can be called which contains the logic and mathe- 
matics for computing the mass or number column density through the 
cloud that surrounds the Spacelab/Orbiter. A capability now 
exists for computing MCD or NCD along generalized lines-of-sight 
with origins located at any station number. 
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Ma^or subroutines used in this segment include: 

PTSLCT • selects those precalculated view factors to points 
in the general cloud matrix that are required for 
a generalized line-of-sight 

MCD - performs the integration along a line-of«sight 

BUNCH * arranges the contributors in descending order of 
influence or in groups by material classification 
or in groups by location on the Spacelab/Orbiter 


The fourth segment computes the flux of contaminants in the 
cloud surrounding the spacecraft that can return to critical sur- 
faces thru interaction with the ambient or by self collision. 

The latest return flux model for contaminant self scattering has 
been refined and expanded for generalized 3 dimensional spacecraft 
and has been coded into the program. Major subroutines include: 

RTFLX - controls computation of return flux 

PTSLCT - defines those points in the general matrix re- 

quired to encompass the f ield-of- view of the 
critical surface 

4.2 Program Input Support - In order to determine the contamination 
characteristics for a particular mission or for a particular set 
of orbital operation conditions, specific Initial conditions and 
mission operations data will be required to support the contamina- 
tion model program. It is expected that much of these data will 
be made available from the MIPS data files through the Data Utility 
Module. Examples of such support data are the thermal profiles 
resulting from specific spacecraft orientations and orbit loca- 
tions. Other input data requirements include; 

a. experiment pointing directions; 

b. experiment operational timelines; 

c. reaction control motor operational timelines; 

d. vent operation timelines; 

e. shuttle attitude timeline; 

f. spacecraft nonmetallic materials history (especially 
replacement and refurbishment history) ; and 

g. initial outgassing and early desorption rates. 
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These data nay be supplied either directly or Indirectly 
from the MIPS data files when full capability Is attained by 
that system. 

The optimization of the Martin Marietta VOLCAM Program and 
the MIPS Data Bank could be realized through the development of 
a "preprocessor". Such a preprocessor would be a software 
package that has full knowledge of the MIPS data structure and 
the Input data requirements of VOLCAN. The preprocessor would 
then build and format an updated Input tape for each execution 
of the contamination model as current as the existing data banks 
In MIPS. This approach would save considerable engineering man 
hours by reducing the amount of labor Involved in building such 
a tape by parts. The alternative would require programmers to 
learn the specific procedures required for accessing and Inter- 
preting the desired Input data when they become available » for- 
matting It accordingly! and manually constructing the Input 
tapes. 
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5. SUMMARY 

A summary of the results of the computer interface study 
leads to the following conclusions: 

a. The UNIVAC 1108 is the most applicable computer in the 
MSFC computer complement for adaptation of the Spacelab Con- 
figuration Contamination Computer Model. 

b. Language difference problems between the CDC 6500 and 
UNIVAC 1108 are minimal. However, plotting routines for differ- 
ent computer installations are unique, dependent upon the parti- 
cular systems set up at particular locations, and will constitute 
a more involved problem than the language differences. Also, 
input/output formats and processes are unique, being a function 
of computer architect philosophy, and will require modification 
to the particular control language devised for MIPS. 

c. The contamination program will require that a modified 
TRASYS or similar program be Included in the MIPS so that modi- 
fications to geometrical parameters can be accommodated. 

d. Optimization of the interface with the MIPS may require 
use of a special preprocessor program for extracting desired 
data from MIPS for inclusion in the VOLCAN Program or the Space- 
lab Contamination Computer Model. 



